   Dim Curwidth As Integer = Me.Width
    Dim Curheight As Integer = Me.Height
  Private Sub form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        Dim RaitoHeight As Double = (Me.Height - Curheight) / Curheight
        Dim RaitoWidth As Double = (Me.Width - Curwidth) / Curwidth

        For Each Ctrl As Control In Controls
            Ctrl.Width += Ctrl.Width * RaitoWidth
            Ctrl.Left += Ctrl.Left * RaitoWidth
            Ctrl.Top += Ctrl.Top * RaitoHeight
            Ctrl.Height += Ctrl.Height * RaitoHeight
        Next

        Curheight = Me.Height
        Curwidth = Me.Width

    End Sub